home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
dirut
/
secret3.zip
/
CDSECRE2.ASM
next >
Wrap
Assembly Source File
|
1992-10-17
|
2KB
|
61 lines
TITLE CDSECRET 5-9-85 [10-17-92]
;v1.1 Toad Hall Rewrite of a disassembly of CDSECRET.COM
; Severe tightening: a virtual rewrite.
; Released to the public domain.
;
;v1.2 Added cmdline processing as well as prompted entry
; in common GETPARM.INC
; David Kirschbaum
; Toad Hall
LF EQU 0AH
CR EQU 0DH
CSEG SEGMENT
ASSUME DS:CSEG, SS:CSEG ,CS:CSEG ,ES:CSEG
ORG 100H
CDSecret PROC NEAR
jmp Start ;v1.2
logo label byte
db 'CDSECRET: Changes to a "secret" directory created by MDSECRET.',CR,LF
db 'Usage: CDSECRET [dirnam]',CR,LF
db 'Where [dirname] is a legal directory name (up to 7 chars max).',CR,LF
db 'v1.2 Public domain rewrite of an old 1985 standard.',CR,LF
db 'David Kirschbaum, Toad Hall',CR,LF,'$'
Start: call GetParm ;get directory name v1.2
jc MsgTerm ;no or illegal input, fail v1.2
;(msg in DX, AL=-1)
;DS:DX -> directory name start, CX = name length.
MOV AH,3BH ;change to secret directory
INT 21H ;DS:DI -> AsciiZ name v1.1
jnb Term ;done, terminate, ERRORLEVEL 0 v1.1
;Change failed. Report the problem.
add error1F9,al ;error msg digit v1.1
MOV DX,OFFSET msg1F0 ;'Error # x'
;v1.1 Display message in DX, terminate with ERRORLEVEL in AL
MsgTerm:
push ax ;save errorlevel v1.1
MOV AH,9 ;display msg in DX
INT 21H
pop ax ;restore errorlevel v1.1
Term: mov ah,4CH ;terminate, ERRORLEVEL in AL v1.1
int 21H ;v1.1
CDSecret ENDP
INCLUDE GETPARM.INC ;v1.2
CSEG ENDS
END CDSecret